home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 May / EnigmA AMIGA RUN 18 (1997)(G.R. Edizioni)(IT)[!][issue 1997-05][EAR-CD II].iso / earcd / misc / emu / arosdev.lha / AROS / rom / exec / alert.c < prev    next >
C/C++ Source or Header  |  1997-01-09  |  5KB  |  303 lines
  1. /*
  2.     (C) 1995-96 AROS - The Amiga Replacement OS
  3.     $Id: alert.c,v 1.12 1997/01/01 03:46:04 ldp Exp $
  4.  
  5.     Desc: Exec function Alert()
  6.     Lang: english
  7. */
  8. #include <exec/execbase.h>
  9. #include <aros/libcall.h>
  10. #include <stdio.h>
  11. #include <stdlib.h>
  12. #include <exec/alerts.h>
  13. #include <proto/exec.h>
  14.  
  15. /*****************************************************************************
  16.  
  17.     NAME */
  18.  
  19.     AROS_LH1(void, Alert,
  20.  
  21. /*  SYNOPSIS */
  22.     AROS_LHA(ULONG, alertNum, D7),
  23.  
  24. /*  LOCATION */
  25.     struct ExecBase *, SysBase, 18, Exec)
  26.  
  27. /*  FUNCTION
  28.     Alerts the user of a serious system problem.
  29.  
  30.     INPUTS
  31.     alertNum - This is a number which contains information about
  32.         the reason for the call.
  33.  
  34.     RESULT
  35.     This routine may return, if the alert is not a dead-end one.
  36.  
  37.     NOTES
  38.     You should not call this routine because it halts the machine,
  39.     displays the message and then may reboot it.
  40.  
  41.     EXAMPLE
  42.     // Dead-End alert: 680x0 Access To Odd Address
  43.     Alert (0x80000003);
  44.  
  45.     BUGS
  46.  
  47.     SEE ALSO
  48.  
  49.     INTERNALS
  50.  
  51.     HISTORY
  52.     26-08-95    digulla created after EXEC-Routine
  53.  
  54. ******************************************************************************/
  55. {
  56.     AROS_LIBFUNC_INIT
  57.     static const char * CPUStrings[] =
  58.     {
  59.     "Hardware bus fault/access error",
  60.     "Illegal address access (ie: odd)",
  61.     "Illegal instruction",
  62.     "Divide by zero",
  63.     "Check instruction error",
  64.     "TrapV instruction error",
  65.     "Privilege violation error",
  66.     "Trace error",
  67.     "Line 1010 Emulator error",
  68.     "Line 1111 Emulator error",
  69.     "Stack frame format error",
  70.     "Spurious interrupt error",
  71.     "AutoVector Level 1 interrupt error",
  72.     "AutoVector Level 2 interrupt error",
  73.     "AutoVector Level 3 interrupt error",
  74.     "AutoVector Level 4 interrupt error",
  75.     "AutoVector Level 5 interrupt error",
  76.     "AutoVector Level 6 interrupt error",
  77.     "AutoVector Level 7 interrupt error",
  78.     },
  79.     * GenPurposeStrings[] =
  80.     {
  81.     "No memory",
  82.     "Make library",
  83.     "Open library",
  84.     "Open device",
  85.     "Open resource",
  86.     "I/O error",
  87.     "No signal",
  88.     "Bad parameter",
  89.     "Close library",
  90.     "Close device",
  91.     "Create process",
  92.     },
  93.     * AlertObjects[] =
  94.     {
  95.     "Exec",
  96.     "Graphics",
  97.     "Layers",
  98.     "Intuition",
  99.  
  100.     "Math",
  101.     "DOS",
  102.     "RAM",
  103.     "Icon",
  104.  
  105.     "Expansion",
  106.     "Diskfont",
  107.     "Utility",
  108.     "Keymap",
  109.  
  110.     NULL,
  111.     NULL,
  112.     NULL,
  113.     NULL,
  114.     /* 0x10 */
  115.     "Audio",
  116.     "Console",
  117.     "Gameport",
  118.     "Keyboard",
  119.  
  120.     "Trackdisk",
  121.     "Timer",
  122.     NULL,
  123.     NULL,
  124.  
  125.     NULL,
  126.     NULL,
  127.     NULL,
  128.     NULL,
  129.  
  130.     NULL,
  131.     NULL,
  132.     NULL,
  133.     NULL,
  134.     /* 0x20 */
  135.     "CIA",
  136.     "Disk",
  137.     "Misc",
  138.     NULL,
  139.  
  140.     NULL,
  141.     NULL,
  142.     NULL,
  143.     NULL,
  144.  
  145.     NULL,
  146.     NULL,
  147.     NULL,
  148.     NULL,
  149.  
  150.     NULL,
  151.     NULL,
  152.     NULL,
  153.     NULL,
  154.     /* 0x30 */
  155.     "Bootstrap",
  156.     "Workbench",
  157.     "Diskcopy",
  158.     "Gadtools",
  159.  
  160.     "Unknown",
  161.     },
  162.     * ExecStrings[] =
  163.     {
  164.     "68000 exception vector checksum",
  165.     "Execbase checksum",
  166.     "Library checksum failure",
  167.     NULL,
  168.  
  169.     "Corrupt memory list detected in FreeMem",
  170.     "No memory for interrupt servers",
  171.     "InitStruct() of an APTR source",
  172.     "A semaphore is in an illegal state at ReleaseSemaphore",
  173.  
  174.     "Freeing memory already freed",
  175.     "Illegal 68k exception taken",
  176.     "Attempt to reuse active IORequest",
  177.     "Sanity check on memory list failed",
  178.  
  179.     "IO attempted on closed IORequest",
  180.     "Stack appears to extend out of range",
  181.     "Memory header not located. (Usually an invalid address passed to FreeMem())",
  182.     "An attempt was made to use the old message semaphores",
  183.  
  184.     };
  185.  
  186.     struct Task * task;
  187.  
  188. #   define GetSubSysId(a)       (((a) >> 24) & 0x7F)
  189. #   define GetGenError(a)       (((a) >> 16) & 0xFF)
  190. #   define GetSpecError(a)      ((a) & 0xFFFF)
  191.  
  192.     task = FindTask (NULL);
  193.  
  194.     /* since this is an emulation, we just show the bug in the console */
  195.     fprintf (stderr
  196.     , "GURU Meditation %04lx %04lx\n"
  197.     , alertNum >> 16
  198.     , alertNum & 0xFFFF
  199.     );
  200.  
  201.     if (alertNum & 0x80000000)
  202.     fprintf (stderr
  203.         , "Deadend/"
  204.     );
  205.     else
  206.     fprintf (stderr
  207.         , "Recoverable/"
  208.     );
  209.  
  210.     switch (GetSubSysId (alertNum))
  211.     {
  212.     case 0: /* CPU/OS/App */
  213.     if (GetGenError (alertNum) == 0)
  214.     {
  215.         fprintf (stderr
  216.         , "CPU/"
  217.         );
  218.  
  219.         if (GetSpecError (alertNum) >= 2 && GetSpecError (alertNum) <= 0x1F)
  220.         fprintf (stderr
  221.             , "%s"
  222.             , CPUStrings[GetSpecError (alertNum) - 2]
  223.         );
  224.         else
  225.         fprintf (stderr
  226.             , "*unknown*"
  227.         );
  228.     }
  229.     else if (GetGenError (alertNum) <= 0x0B)
  230.     {
  231.         fprintf (stderr
  232.         , "%s/"
  233.         , GenPurposeStrings[GetGenError (alertNum) - 1]
  234.         );
  235.  
  236.         if (GetSpecError (alertNum) >= 0x8001
  237.         && GetSpecError (alertNum) <= 0x8035)
  238.         {
  239.         fprintf (stderr
  240.             , "%s"
  241.             , AlertObjects[GetSpecError (alertNum) - 0x8001]
  242.         );
  243.         }
  244.         else
  245.         fprintf (stderr
  246.             , "*unknown*"
  247.         );
  248.     }
  249.  
  250.     break;
  251.  
  252.     case 1: /* Exec */
  253.     fprintf (stderr
  254.         , "Exec/"
  255.     );
  256.  
  257.     if (!GetGenError (alertNum)
  258.         && GetSpecError (alertNum) >= 0x0001
  259.         && GetSpecError (alertNum) <= 0x0010)
  260.     {
  261.         fprintf (stderr
  262.         , "%s"
  263.         , ExecStrings[GetSpecError (alertNum) - 0x0001]
  264.         );
  265.     }
  266.     else
  267.     {
  268.         fprintf (stderr
  269.         , "*unknown*"
  270.         );
  271.     }
  272.  
  273.     break;
  274.  
  275.     case 2: /* Graphics */
  276.     fprintf (stderr
  277.         , "Graphics/*unknown*"
  278.     );
  279.  
  280.     break;
  281.  
  282.     default:
  283.     fprintf (stderr
  284.         , "*unknown*/*unknown*"
  285.     );
  286.     }
  287.  
  288.     fprintf (stderr
  289.     , "\nTask: %p (%s)\n"
  290.     , task
  291.     , (task && task->tc_Node.ln_Name) ?
  292.         task->tc_Node.ln_Name
  293.         : "-- unknown task --"
  294.     );
  295.     fflush (stderr);
  296.  
  297.     if (alertNum & AT_DeadEnd)
  298.     exit (20);
  299.  
  300.     AROS_LIBFUNC_EXIT
  301. } /* Alert */
  302.  
  303.